home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / TOROTRAP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-02-20  |  3.0 KB  |  103 lines
  1. 10  'TOROTRAP - TOROID ANTENNA TRAPS - 28 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  PROG$="torotrap"
  4. 40  COLOR 7,0,1
  5. 50  CLS
  6. 60  COMMON L,EX$,PROG$
  7. 70  PI=3.14159
  8. 80  UL$=STRING$(80,205)
  9. 90  DIM C(23)
  10. 100  DATA 10,12,15,18,20,22,24,27,30,33,36,39,43,47,50,51,56,62,68,75,82,91,100
  11. 110  FOR Z=1 TO 23:READ C(Z):NEXT Z
  12. 120  '
  13. 130  COLOR 15,2
  14. 140  PRINT " TOROID ANTENNA TRAPS";TAB(57);"by George Murphy VE3ERP ";
  15. 150  COLOR 1,0:PRINT STRING$(80,223);
  16. 160  COLOR 7,0
  17. 170  GOSUB 700      'print diagram
  18. 180  PRINT
  19. 190  PRINT UL$;
  20. 200  LN=CSRLIN      'line number
  21. 210  COLOR 0,7:LOCATE 3,28
  22. 220  PRINT " Press 1 to RUN program or 0 to EXIT ":COLOR 7,0
  23. 230  Z$=INKEY$:IF Z$=""THEN 230
  24. 240  IF Z$="0"THEN CLS:RUN EX$
  25. 250  IF Z$="1"THEN 270
  26. 260  GOTO 230
  27. 270  LOCATE CSRLIN-1:PRINT STRING$(80,32);:LOCATE LN
  28. 280  INPUT " ENTER: Desired resonant frequency in MHz (max. 30 MHz)......";F
  29. 290  IF F>0 AND F<=30 THEN 310
  30. 300  LOCATE CSRLIN-1:PRINT STRING$(80,32);:LOCATE CSRLIN-1:GOTO 280
  31. 310  VIEW PRINT LN TO 24:CLS:VIEW PRINT:LOCATE LN
  32. 320  X=200     'reactance in ohms
  33. 330  CUF=1/(2*PI*F*X)       'capacitance in >F
  34. 340  CPF=CUF*10^6           'capacitance in pF
  35. 350  M=0.1     'multiplier
  36. 360  FOR Z=1 TO 17
  37. 370  MEAN=M*(C(Z)+C(Z-1))/2
  38. 380  IF CPF<MEAN THEN 420
  39. 390  NEXT Z
  40. 400  M=M*10
  41. 410  GOTO 360
  42. 420  C=C(Z-1)*M             'capacitance in pF
  43. 430  X=1/(2*PI*F*C*10^-6)   'reactance in ohms
  44. 440  L=X/(2*PI*F)           'inductance in >H
  45. 450  T$=STR$(F)+" MHz TRAP "
  46. 460  LG=INT((80-LEN(T$))/2)
  47. 470  LOCATE 3,LG
  48. 480  PRINT T$
  49. 490  LOCATE 4,LG
  50. 500  PRINT STRING$(LEN(T$),"<0xDF!>")
  51. 510  LOCATE LN
  52. 520  PRINT " Capacitor ................... C1=";USING "####.#";C;:PRINT " pF ";
  53. 530  PRINT "silver-mica"
  54. 540  PRINT " Inductor .................... L1=";USING "####.#";L;:PRINT " >H ";
  55. 550  PRINT "toroid"
  56. 560  PRINT " Reactance .................... X=";USING "####.#";X;:PRINT " -"
  57. 570  PRINT " Resonant frequency of trap ... F=";USING "####.###";F;:PRINT " MHz"
  58. 580  PRINT UL$;
  59. 590  GOSUB 900
  60. 600  LOCATE 25,1:PRINT STRING$(80,32);
  61. 610  LOCATE LN+5
  62. 620  COLOR 0,7
  63. 630  PRINT " Do you want to select an Amidon toroid core for L1?    (y/n) "
  64. 640  COLOR 7,0
  65. 650  Z$=INKEY$
  66. 660  IF Z$="n"THEN CLS:RUN EX$
  67. 670  IF Z$="y"THEN CLS:L=INT(L*10+0.5)/10:CHAIN"toroid"
  68. 680  GOTO 650
  69. 690  '
  70. 700  '.....diagram
  71. 710  RO=4
  72. 720  CO=28
  73. 730  LOCATE RO+5:PRINT " Cut slots in body of film"
  74. 740  LOCATE RO+6:PRINT " container to fit around"
  75. 750  LOCATE RO+7:PRINT " antenna wires and seal"
  76. 760  LOCATE RO+8:PRINT " with silicone."
  77. 770  COLOR 0,7
  78. 780  LOCATE RO+1,CO:PRINT "    KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE                                "
  79. 790  LOCATE RO+2,CO:PRINT "    OPENOPEN            OPENOPEN       VARPTRSOUND Antenna               "
  80. 800  LOCATE RO+3,CO:PRINT " SOUNDSOUNDSOUNDSOUNDUSINGSOUNDSOUNDCOLOR      VARPTRSOUNDSOUNDUSINGSOUNDSOUNDSOUNDSOUND DEFSNGSOUNDSOUND'                        "
  81. 810  LOCATE RO+4,CO:PRINT "     OPEN THENINSTRTHENTHENTHENTHENTHENTHENINSTRTHENDEFSNGUSINGSOUNDSOUNDSOUNDSOUND strain relief               "
  82. 820  LOCATE RO+5,CO:PRINT "     OPEN  BLOADSOUNDSOUND<0xB4!>BLOADSOUNDSOUND<0xB4!>  OPEN    (plastic overcoat button)    "
  83. 830  LOCATE RO+6,CO:PRINT "     OPEN  CALL  C1  CALL  OPEN                                 "
  84. 840  LOCATE RO+7,CO:PRINT "     OPEN  CLSSOUNDORORORORSOUND'  OPENDEFSNGSOUNDSOUNDSOUND plastic 35mm film container "
  85. 850  LOCATE RO+8,CO:PRINT "     OPEN     L1     OPEN                                 "
  86. 860  LOCATE RO+9,CO:PRINT "     SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD                                 "
  87. 870  COLOR 7,0
  88. 880  RETURN
  89. 890  '
  90. 900  'HARDCOPY
  91. 910  GOSUB 1020:LOCATE 25,2:COLOR 14,6
  92. 920  PRINT " Press 1 to print screen, 2 to print screen & ";
  93. 930  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  94. 940  Z$=INKEY$:IF Z$="3"THEN GOSUB 1020:RETURN
  95. 950  IF Z$="1"OR Z$="2"THEN GOSUB 1020:GOTO 970
  96. 960  GOTO 940
  97. 970  FOR QX=1 TO 24:FOR QY=1 TO 80
  98. 980  LPRINT CHR$(SCREEN(QX,QY));
  99. 990  NEXT QY:NEXT QX
  100. 1000  IF Z$="2"THEN LPRINT CHR$(12)
  101. 1010  GOTO 910
  102. 1020  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  103.